COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 	SUBROUTINE OPT(L,M,NSAM)
C00003 ENDMK
C⊗;
 	SUBROUTINE OPT(L,M,NSAM)
 	DIMENSION L(1),M(1)     
 	COMMON /GENS/GENS(1)/LFUNC/LFUNC,XNFUN
	1/NT/RNT(1)/ROUT/ROUT(1) /XIN/AMP,FREQ
C THIS IS A DUMMY ROUTINE     OPT Pm Pn Bn;  doubles value of Bn
	J1=L(3)
C L(3) MEANS LOOK AT 3RD FIELD OF 'OPT'
	J2=J1+NSAM-1
	IF(A.EQ.0)A=FREQ
	DO 1 K=J1,J2   
	A=A+FREQ
1	ROUT(K)=A+AMP
	RETURN
	END